# @arthor quoc.le
#! C:/Perl/bin/perl -w
use strict;
use warnings;
use diagnostics;
use Data::Dumper;

my @arr = ('rt0','r2','r1','r0');
@arr = join "-",sort @arr;
print @arr;